object FrmPermissoesUsuarios: TFrmPermissoesUsuarios
  Left = 376
  Top = 156
  BorderStyle = bsSingle
  Caption = 'Permiss'#245'es de Usu'#225'rios do Sistema'
  ClientHeight = 487
  ClientWidth = 577
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDefault
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 0
    Top = 446
    Width = 577
    Height = 41
    Align = alBottom
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    object btnFechar: TBitBtn
      Left = 496
      Top = 8
      Width = 75
      Height = 25
      Hint = 'Fechar Janela'
      Caption = '&Fechar'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = btnFecharClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000010000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
    end
  end
  object tvMenus: TTreeView
    Left = 0
    Top = 41
    Width = 459
    Height = 405
    Align = alClient
    Ctl3D = False
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    HideSelection = False
    Indent = 19
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    TabOrder = 1
    OnChange = tvMenusChange
    OnClick = tvMenusClick
  end
  object Panel2: TPanel
    Left = 459
    Top = 41
    Width = 118
    Height = 405
    Align = alRight
    TabOrder = 2
    object GroupBox1: TGroupBox
      Left = 11
      Top = 9
      Width = 97
      Height = 169
      Caption = 'Permiss'#245'es'
      TabOrder = 0
      object cbAlterar: TCheckBox
        Left = 8
        Top = 64
        Width = 57
        Height = 17
        Caption = '&Alterar'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 0
      end
      object cbConsultar: TCheckBox
        Left = 8
        Top = 40
        Width = 65
        Height = 17
        Caption = '&Consultar'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 1
      end
      object cbIncluir: TCheckBox
        Left = 8
        Top = 16
        Width = 49
        Height = 17
        Caption = '&Inserir'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 2
      end
      object cbExcluir: TCheckBox
        Left = 8
        Top = 88
        Width = 49
        Height = 17
        Caption = '&Excluir'
        Ctl3D = False
        ParentCtl3D = False
        TabOrder = 3
      end
      object CbTodos: TCheckBox
        Left = 8
        Top = 126
        Width = 70
        Height = 17
        Caption = '&Todos'
        TabOrder = 4
        OnClick = CbTodosClick
      end
    end
    object btnSalvar: TBitBtn
      Left = 11
      Top = 184
      Width = 97
      Height = 24
      Hint = 'Salvar'
      Caption = '&Salvar'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = btnSalvarClick
      Glyph.Data = {
        06030000424D060300000000000036000000280000000F0000000F0000000100
        180000000000D0020000120B0000120B00000000000000000000008080000000
        0000000000000000007F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F7F0000
        000000000080800000000000000000000000000000000000007F7F7FBFBFBFBF
        BFBFBFBFBFBFBFBFBFBFBFBFBFBF000000000000000000000000000000000000
        0000000000000000007F7F7FBFBFBF000000000000BFBFBFBFBFBFBFBFBF0000
        000000000000000000000000000000000000000000000000007F7F7FBFBFBF00
        0000000000BFBFBFBFBFBFBFBFBF000000000000000000000000000000000000
        0000000000000000007F7F7FBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBFBF0000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        0000000000000000000000000000000000000000000000000000000000000000
        00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
        000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
        00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
        000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
        00000000000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000000000000000
        000000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000
        007F7F7F000000000000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFFFF
        FFFFFFFFFFFFFFFFFFFFFFFFFFFF000000000000000000000000008080000000
        0000000000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
        00000000008080000000}
    end
    object btnDesfazer: TBitBtn
      Left = 11
      Top = 212
      Width = 97
      Height = 25
      Hint = 'Salvar'
      Caption = '&Desfazer'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = btnDesfazerClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333444444
        33333333333F8888883F33330000324334222222443333388F3833333388F333
        000032244222222222433338F8833FFFFF338F3300003222222AAAAA22243338
        F333F88888F338F30000322222A33333A2224338F33F8333338F338F00003222
        223333333A224338F33833333338F38F00003222222333333A444338FFFF8F33
        3338888300003AAAAAAA33333333333888888833333333330000333333333333
        333333333333333333FFFFFF000033333333333344444433FFFF333333888888
        00003A444333333A22222438888F333338F3333800003A2243333333A2222438
        F38F333333833338000033A224333334422224338338FFFFF8833338000033A2
        22444442222224338F3388888333FF380000333A2222222222AA243338FF3333
        33FF88F800003333AA222222AA33A3333388FFFFFF8833830000333333AAAAAA
        3333333333338888883333330000333333333333333333333333333333333333
        0000}
      NumGlyphs = 2
    end
  end
  object Panel3: TPanel
    Left = 0
    Top = 0
    Width = 577
    Height = 41
    Align = alTop
    TabOrder = 3
    object Label1: TLabel
      Left = 6
      Top = 10
      Width = 106
      Height = 13
      Caption = 'Selecione um Usu'#225'rio:'
    end
    object Label2: TLabel
      Left = 8
      Top = 26
      Width = 90
      Height = 13
      Caption = 'Menus do Sistema:'
    end
    object dbUsuarios: TDBLookupComboBox
      Left = 120
      Top = 7
      Width = 337
      Height = 19
      Ctl3D = False
      KeyField = 'USU_CODIGO'
      ListField = 'USU_NOME'
      ListSource = dsLookupUsuarios
      ParentCtl3D = False
      TabOrder = 0
      OnCloseUp = dbUsuariosCloseUp
      OnKeyPress = dbUsuariosKeyPress
    end
  end
  object dsLookupUsuarios: TDataSource
    DataSet = SQL_USUARIOS
    Left = 296
    Top = 8
  end
  object SQL_USUARIOS: TSQLClientDataSet
    CommandText = 'select USU_CODIGO, USU_NOME from USUARIOS ORDER BY USU_NOME'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 328
    Top = 8
  end
end
